home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9409b.d64 / imp.source #4 < prev    next >
Text File  |  1995-03-30  |  24KB  |  1,403 lines

  1.  
  2.  
  3.  
  4. ;---------------------------------------
  5. ;
  6. ;       - ╔ ═ ╨ ┼ ╥ ╧ ╔ ─   ╓ 4 -
  7. ;
  8. ;         - BY ╚ANNES ╙OMMER -
  9. ;
  10. ;      - (C) ═ARKT & ╘ECHNIK '94 -
  11. ;
  12. ;---------------------------------------
  13.  
  14.  
  15. ELO      = $FA
  16. EHI      = $FB
  17. V        = 53248
  18. BE       = $47F8
  19. BORD     = 703
  20.  
  21.          *= $8000
  22.  
  23.          JMP TITLE
  24.  
  25.  
  26. COLS     .BYTE 0,0,0,0,0,0,0,0
  27.          .BYTE 0,0,0,0,0,0,0,0
  28.          .BYTE 0,9,8,10,15,7,1,1
  29.          .BYTE 1,1,13,3,14,4,6,0
  30.  
  31.          .BYTE 0,0,0,0,0,0,0,0
  32.          .BYTE 0,0,0,0,0,0,0,0
  33.  
  34.  
  35.  
  36. ;------------ ╞ ╠ ╔ - ╠OGO -------------
  37.  
  38.  
  39. FLI
  40.  
  41.          LDA #56
  42.          STA $D011
  43.  
  44.          INC FLY1+1
  45. FLY1     LDA #0
  46.          LSR A
  47.          AND #31
  48.          TAY
  49.  
  50.          LDX #0
  51. FLI0     LDA COLS,Y
  52.          STA $50,X
  53.          INY
  54.          INX
  55.          CPX #15
  56.          BNE FLI0
  57.          LDA #0
  58.          STA $5F
  59.  
  60.  
  61.          LDA #49
  62. FLI1     CMP $D012
  63.          BCS FLI1
  64.  
  65.          LDX #3
  66. FLI2     DEX
  67.          BNE FLI2
  68.  
  69.          LDA #63
  70.          LDX #8
  71.          STA $D011
  72.          STX $D018
  73.          LDA $5F
  74.          STA $D020
  75.          STA $D021
  76.          LDA #56
  77.          LDX #24
  78.          STA $D011
  79.          STX $D018
  80.          LDA $5F
  81.          STA $D020
  82.          STA $D021
  83.          LDA #57
  84.          LDX #40
  85.          STA $D011
  86.          STX $D018
  87.          LDA $5F
  88.          STA $D020
  89.          STA $D021
  90.          LDA #58
  91.          LDX #56
  92.          STA $D011
  93.          STX $D018
  94.          LDA $5F
  95.          STA $D020
  96.          STA $D021
  97.          LDA #59
  98.          LDX #72
  99.          STA $D011
  100.          STX $D018
  101.          LDA $50
  102.          STA $D020
  103.          STA $D021
  104.          LDA #60
  105.          LDX #88
  106.          STA $D011
  107.          STX $D018
  108.          LDA $51
  109.          STA $D020
  110.          STA $D021
  111.          LDA #61
  112.          LDX #104
  113.          STA $D011
  114.          STX $D018
  115.          LDA $52
  116.          STA $D020
  117.          STA $D021
  118.          LDA #62
  119.          LDX #120
  120.          STA $D011
  121.          STX $D018
  122.          LDA $50
  123.          STA $D020
  124.          STA $D021
  125.  
  126.          LDA #63    ;╠INE #2
  127.          LDX #8
  128.          STA $D011
  129.          STX $D018
  130.          LDA $51
  131.          STA $D020
  132.          STA $D021
  133.          LDA #56
  134.          LDX #24
  135.          STA $D011
  136.          STX $D018
  137.          LDA $52
  138.          STA $D020
  139.          STA $D021
  140.          LDA #57
  141.          LDX #40
  142.          STA $D011
  143.          STX $D018
  144.          LDA $53
  145.          STA $D020
  146.          STA $D021
  147.          LDA #58
  148.          LDX #56
  149.          STA $D011
  150.          STX $D018
  151.          LDA $50
  152.          STA $D020
  153.          STA $D021
  154.          LDA #59
  155.          LDX #72
  156.          STA $D011
  157.          STX $D018
  158.          LDA $51
  159.          STA $D020
  160.          STA $D021
  161.          LDA #60
  162.          LDX #88
  163.          STA $D011
  164.          STX $D018
  165.          LDA $52
  166.          STA $D020
  167.          STA $D021
  168.          LDA #61
  169.          LDX #104
  170.          STA $D011
  171.          STX $D018
  172.          LDA $53
  173.          STA $D020
  174.          STA $D021
  175.          LDA #62
  176.          LDX #120
  177.          STA $D011
  178.          STX $D018
  179.          LDA $54
  180.          STA $D020
  181.          STA $D021
  182.  
  183.          LDA #63   ;╠INE #3
  184.          LDX #8
  185.          STA $D011
  186.          STX $D018
  187.          LDA $55
  188.          STA $D020
  189.          STA $D021
  190.          LDA #56
  191.          LDX #24
  192.          STA $D011
  193.          STX $D018
  194.          LDA $50
  195.          STA $D020
  196.          STA $D021
  197.          LDA #57
  198.          LDX #40
  199.          STA $D011
  200.          STX $D018
  201.          LDA $51
  202.          STA $D020
  203.          STA $D021
  204.          LDA #58
  205.          LDX #56
  206.          STA $D011
  207.          STX $D018
  208.          LDA $52
  209.          STA $D020
  210.          STA $D021
  211.          LDA #59
  212.          LDX #72
  213.          STA $D011
  214.          STX $D018
  215.          LDA $53
  216.          STA $D020
  217.          STA $D021
  218.          LDA #60
  219.          LDX #88
  220.          STA $D011
  221.          STX $D018
  222.          LDA $54
  223.          STA $D020
  224.          STA $D021
  225.          LDA #61
  226.          LDX #104
  227.          STA $D011
  228.          STX $D018
  229.          LDA $55
  230.          STA $D020
  231.          STA $D021
  232.          LDA #62
  233.          LDX #120
  234.          STA $D011
  235.          STX $D018
  236.          LDA $56
  237.          STA $D020
  238.          STA $D021
  239.  
  240.          LDA #63   ;╠INE #4
  241.          LDX #8
  242.          STA $D011
  243.          STX $D018
  244.          LDA $57
  245.          STA $D020
  246.          STA $D021
  247.          LDA #56
  248.          LDX #24
  249.          STA $D011
  250.          STX $D018
  251.          LDA $50
  252.          STA $D020
  253.          STA $D021
  254.          LDA #57
  255.          LDX #40
  256.          STA $D011
  257.          STX $D018
  258.          LDA $51
  259.          STA $D020
  260.          STA $D021
  261.          LDA #58
  262.          LDX #56
  263.          STA $D011
  264.          STX $D018
  265.          LDA $52
  266.          STA $D020
  267.          STA $D021
  268.          LDA #59
  269.          LDX #72
  270.          STA $D011
  271.          STX $D018
  272.          LDA $53
  273.          STA $D020
  274.          STA $D021
  275.          LDA #60
  276.          LDX #88
  277.          STA $D011
  278.          STX $D018
  279.          LDA $54
  280.          STA $D020
  281.          STA $D021
  282.          LDA #61
  283.          LDX #104
  284.          STA $D011
  285.          STX $D018
  286.          LDA $55
  287.          STA $D020
  288.          STA $D021
  289.          LDA #62
  290.          LDX #120
  291.          STA $D011
  292.          STX $D018
  293.          LDA $56
  294.          STA $D020
  295.          STA $D021
  296.  
  297.          LDA #63   ;╠INE #5
  298.          LDX #8
  299.          STA $D011
  300.          STX $D018
  301.          LDA $57
  302.          STA $D020
  303.          STA $D021
  304.          LDA #56
  305.          LDX #24
  306.          STA $D011
  307.          STX $D018
  308.          LDA $58
  309.          STA $D020
  310.          STA $D021
  311.          LDA #57
  312.          LDX #40
  313.          STA $D011
  314.          STX $D018
  315.          LDA $59
  316.          STA $D020
  317.          STA $D021
  318.          LDA #58
  319.          LDX #56
  320.          STA $D011
  321.          STX $D018
  322.          LDA $52
  323.          STA $D020
  324.          STA $D021
  325.          LDA #59
  326.          LDX #72
  327.          STA $D011
  328.          STX $D018
  329.          LDA $53
  330.          STA $D020
  331.          STA $D021
  332.          LDA #60
  333.          LDX #88
  334.          STA $D011
  335.          STX $D018
  336.          LDA $54
  337.          STA $D020
  338.          STA $D021
  339.          LDA #61
  340.          LDX #104
  341.          STA $D011
  342.          STX $D018
  343.          LDA $55
  344.          STA $D020
  345.          STA $D021
  346.          LDA #62
  347.          LDX #120
  348.          STA $D011
  349.          STX $D018
  350.          LDA $56
  351.          STA $D020
  352.          STA $D021
  353.  
  354.          LDA #63   ;╠INE #6
  355.          LDX #8
  356.          STA $D011
  357.          STX $D018
  358.          LDA $57
  359.          STA $D020
  360.          STA $D021
  361.          LDA #56
  362.          LDX #24
  363.          STA $D011
  364.          STX $D018
  365.          LDA $58
  366.          STA $D020
  367.          STA $D021
  368.          LDA #57
  369.          LDX #40
  370.          STA $D011
  371.          STX $D018
  372.          LDA $59
  373.          STA $D020
  374.          STA $D021
  375.          LDA #58
  376.          LDX #56
  377.          STA $D011
  378.          STX $D018
  379.          LDA $54
  380.          STA $D020
  381.          STA $D021
  382.          LDA #59
  383.          LDX #72
  384.          STA $D011
  385.          STX $D018
  386.          LDA $55
  387.          STA $D020
  388.          STA $D021
  389.          LDA #60
  390.          LDX #88
  391.          STA $D011
  392.          STX $D018
  393.          LDA $56
  394.          STA $D020
  395.          STA $D021
  396.          LDA #61
  397.          LDX #104
  398.          STA $D011
  399.          STX $D018
  400.          LDA $57
  401.          STA $D020
  402.          STA $D021
  403.          LDA #62
  404.          LDX #120
  405.          STA $D011
  406.          STX $D018
  407.          LDA $58
  408.          STA $D020
  409.          STA $D021
  410.  
  411.          LDA #63   ;╠INE #7
  412.          LDX #8
  413.          STA $D011
  414.          STX $D018
  415.          LDA $59
  416.          STA $D020
  417.          STA $D021
  418.          LDA #56
  419.          LDX #24
  420.          STA $D011
  421.          STX $D018
  422.          LDA $56
  423.          STA $D020
  424.          STA $D021
  425.          LDA #57
  426.          LDX #40
  427.          STA $D011
  428.          STX $D018
  429.          LDA $57
  430.          STA $D020
  431.          STA $D021
  432.          LDA #58
  433.          LDX #56
  434.          STA $D011
  435.          STX $D018
  436.          LDA $58
  437.          STA $D020
  438.          STA $D021
  439.          LDA #59
  440.          LDX #72
  441.          STA $D011
  442.          STX $D018
  443.          LDA $59
  444.          STA $D020
  445.          STA $D021
  446.          LDA #60
  447.          LDX #88
  448.          STA $D011
  449.          STX $D018
  450.          LDA $57
  451.          STA $D020
  452.          STA $D021
  453.          LDA #61
  454.          LDX #104
  455.          STA $D011
  456.          STX $D018
  457.          LDA $58
  458.          STA $D020
  459.          STA $D021
  460.          LDA #62
  461.          LDX #120
  462.          STA $D011
  463.          STX $D018
  464.          LDA $59
  465.          STA $D020
  466.          STA $D021
  467.          LDA #63
  468.          LDX #12
  469.          STA $D011
  470.          STX $D018
  471.          LDA #0
  472.          STA $D020
  473.          STA $D021
  474.          LDA #88
  475.          STA $D011
  476.  
  477.          RTS
  478.  
  479.  
  480.  
  481.  
  482.  
  483. ;--------------- ╟ ┴ ═ ┼ ---------------
  484.  
  485.  
  486. GAME
  487.          LDA #64
  488.          STA $D011
  489.          STA $D020
  490.          STA $D021
  491.  
  492.          LDX #0
  493. IN1      LDA #255
  494.          STA $4000,X
  495.          LDA #0
  496.          STA $D800,X
  497.          STA $D900,X
  498.          STA $DA00,X
  499.          STA $DB00,X
  500.          DEX
  501.          BNE IN1
  502.  
  503.          LDX #6
  504.          LDA #255
  505. IN2      STA BACKXH,X
  506.          STA PACKXH,X
  507.          DEX
  508.          BPL IN2
  509.  
  510.          LDA #$44    ;┴UFBAU DES
  511.          STA IN6+2   ;╙TERNE-╚IMMELS
  512.          LDX #0
  513.          STX IN6+1
  514.          LDY #0
  515. IN5      TYA
  516.          CLC
  517.          ADC STARL,X
  518.          AND #31
  519. IN6      STA $4400,Y
  520.          INY
  521.          CPY #40
  522.          BNE IN5
  523.          LDA IN6+1
  524.          CLC
  525.          ADC #40
  526.          STA IN6+1
  527.          BCC IN7
  528.          INC IN6+2
  529. IN7      INX
  530.          CPX #24
  531.          BNE IN5-2
  532.  
  533.          LDX #39
  534. IN8      LDA #32
  535.          STA $4400+960,X
  536.          LDA #255
  537.          STA $4100,X
  538.          DEX
  539.          BPL IN8
  540.  
  541.          LDA #0
  542.          STA END+1
  543.          STA BACKPOINT
  544.          STA PACKPOINT
  545.          STA BACKSPR
  546.          STA PACKSPR
  547.  
  548.          LDA #1
  549.          STA T20+1
  550.          LDA #15
  551.          STA T30+1
  552.  
  553.          LDA #14   ;╨LAYER-╔NIT
  554.          STA C
  555.          LDA #48
  556.          STA B
  557.          LDA #80
  558.          STA X
  559.          LDA #140
  560.          STA Y
  561.          LDA #0
  562.          STA XH
  563.  
  564.          LDA #<ENEMIES
  565.          STA ELO
  566.          LDA #>ENEMIES
  567.          STA EHI
  568.          LDA #20
  569.          STA T51+1
  570.  
  571.          SEI       ;╔RQ+╟RAFIK-═ODI
  572.          LDA #<IRQ
  573.          STA $FFFE
  574.          LDA #>IRQ
  575.          STA $FFFF
  576.          LDA #129
  577.          STA $D01A
  578.          LDA #250
  579.          STA $D012
  580.          LDA #27
  581.          STA $D011
  582.          LDA #198
  583.          STA $DD00
  584.          LDA #16
  585.          STA $D018
  586.          LDA #200
  587.          STA $D016
  588.  
  589.          CLI
  590.  
  591. S1
  592.  
  593. END      LDA #0      ;┼NDE ?
  594.          BEQ NOEND
  595.          LDA #64
  596.          STA $D011
  597.          STA $D021
  598.          SEI
  599.          JMP TITLE
  600. NOEND
  601.          JMP S1
  602.  
  603.  
  604. STARL    .BYTE 0,5,20,13,28
  605.          .BYTE 14,3,9,23,18
  606.          .BYTE 4,10,21,8,27
  607.          .BYTE 11,2,26,15,6
  608.          .BYTE 24,1,16,29,7
  609.  
  610.  
  611. NMI      INC END+1 ;*** ╬═╔ ***
  612.          RTI
  613.  
  614.  
  615. IRQ      PHA       ;*** ╔╥╤ ***
  616.          TXA
  617.          PHA
  618.          TYA
  619.          PHA
  620.          LDA $D019
  621.          STA $D019
  622.          BMI T1
  623.          LDA $DC0D
  624.          CLI
  625. IRQEND   PLA
  626.          TAY
  627.          PLA
  628.          TAX
  629.          PLA
  630.          RTI
  631.  
  632.  
  633. T1
  634.          INC BORD
  635.  
  636.          LDA #255
  637.          STA V+21
  638.          STA V+28
  639.          LDA #11
  640.          STA V+37
  641.          LDA #1
  642.          STA V+38
  643.  
  644.          LDX #15
  645. T5       LDA STARP,X  ;╙TAR-MOVING!
  646.          AND #248
  647.          STA T6+1
  648.          TXA
  649.          AND #7
  650.          TAY
  651.          LDA #255
  652. T6       STA $4000,Y
  653.          LDA STARP,X
  654.          SEC
  655.          SBC STARS,X
  656.          STA STARP,X
  657.          AND #248
  658.          STA T7+1
  659.          LDA STARP,X
  660.          AND #7
  661.          STA TT7+1
  662. TT7      LDA UND
  663. T7       STA $4000,Y
  664.          DEX
  665.          BPL T5
  666.  
  667.          INC T8+1     ;╙TAR-╞LASHING!
  668. T8       LDA #0
  669.          LSR A
  670.          AND #15
  671.          TAX
  672.          LDA STFLASH,X
  673.          STA $D021
  674.  
  675.  
  676.  
  677.  
  678.          LDA $DC00  ;╩OYSTICK-├ONTROL!
  679.          STA JOYST
  680.          AND #1
  681.          BNE T11
  682.          LDA Y
  683.          CMP #52
  684.          BCC T12
  685.          SBC #2
  686.          STA Y
  687. T11      LDA JOYST
  688.          AND #2
  689.          BNE T12
  690.          LDA Y
  691.          CMP #224
  692.          BCS T12
  693.          ADC #2
  694.          STA Y
  695. T12      LDA JOYST
  696.          AND #4
  697.          BNE T13
  698.          LDA IX
  699.          CMP #13
  700.          BCC T14
  701.          LDA X
  702.          SBC #2
  703.          STA X
  704.          BCS T14
  705.          DEC XH
  706. T13      LDA JOYST
  707.          AND #8
  708.          BNE T14
  709.          LDA IX
  710.          CMP #160
  711.          BCS T14
  712.          LDA X
  713.          ADC #2
  714.          STA X
  715.          BCC T14
  716.          INC XH
  717. T14
  718.  
  719.  
  720.          LDA X    ;╨LAYER-╙PRITE!
  721.          STA V
  722.          LDA Y
  723.          STA V+1
  724.          LDA XH
  725.          STA V+16
  726.          LDA B
  727.          STA BE
  728.          LDA C
  729.          STA V+39
  730.  
  731.  
  732.  
  733.  
  734.  
  735.  
  736.  
  737.  
  738.          DEC T20+1
  739. T20      LDA #1  ;* ╬EW ┬ACK-╙PRITES *
  740.          BNE T22-2
  741.          LDX BACKPOINT
  742.          LDY BACKSPR
  743.          LDA BACKTIME,X
  744.          BNE T21
  745.          LDX #0
  746.          STX BACKPOINT
  747.          LDA BACKTIME,X
  748. T21      STA T20+1
  749.          LDA BACKBDAT,X
  750.          STA BACKB,Y
  751.          LDA #84
  752.          STA BACKX,Y
  753.          LDA #1
  754.          STA BACKXH,Y
  755.          INC BACKPOINT
  756.          INC BACKSPR
  757.          LDA BACKSPR
  758.          CMP #7
  759.          BNE T22-2
  760.          LDA #0
  761.          STA BACKSPR
  762.  
  763.          LDX #6
  764. T22      LDA BACKX,X  ;┬ACK ╪-MOVING!
  765.          SEC
  766.          SBC #4
  767.          STA BACKX,X
  768.          BCS T23
  769.          DEC BACKXH,X
  770. T23      LDA BACKXH,X ;┬ACK TO ╙PRITES!
  771.          BMI T25
  772.          BEQ T24
  773.          LDA V+16
  774.          ORA ODER+1,X
  775.          STA V+16
  776. T24      LDY MAL2,X
  777.          LDA BACKX,X
  778.          STA V+2,Y
  779.          LDA #50
  780.          STA V+3,Y
  781.          LDA BACKB,X
  782.          STA BE+1,X
  783.          LDA #15
  784.          STA V+40,X
  785. T25      DEX
  786.          BPL T22
  787.  
  788.  
  789.          DEC T30+1
  790. T30      LDA #1  ;* ╬EW ╨ACK-╙PRITES *
  791.          BNE T32-2
  792.          LDX PACKPOINT
  793.          LDY PACKSPR
  794.          LDA PACKTIME,X
  795.          BNE T31
  796.          LDX #0
  797.          STX PACKPOINT
  798.          LDA PACKTIME,X
  799. T31      STA T30+1
  800.          LDA PACKBDAT,X
  801.          STA PACKB,Y
  802.          LDA #84
  803.          STA PACKX,Y
  804.          LDA #1
  805.          STA PACKXH,Y
  806.          INC PACKPOINT
  807.          INC PACKSPR
  808.          LDA PACKSPR
  809.          CMP #7
  810.          BNE T32-2
  811.          LDA #0
  812.          STA PACKSPR
  813.  
  814.          LDX #6
  815. T32      LDA PACKX,X  ;┬ACK ╪-MOVING!
  816.          SEC
  817.          SBC #4
  818.          STA PACKX,X
  819.          BCS T33
  820.          DEC PACKXH,X
  821. T33      DEX
  822.          BPL T32
  823.  
  824.  
  825.  
  826. T40      LDA #0    ;* 1/3-┴CTION *
  827.          BNE T50
  828.  
  829.          INC B   ;╙HIP CIRCLING!
  830.          LDA B
  831.          CMP #56
  832.          BNE T41
  833.          LDA #48
  834.          STA B
  835. T41
  836.          LDX #7
  837. T42      INC B,X
  838.          LDA B,X
  839.          AND #7
  840.          ORA #64
  841.          STA B,X
  842.          DEX
  843.          BNE T42
  844.  
  845.          JMP T70
  846.  
  847.  
  848. T50      CMP #1    ;* 2/3-┴CTION *
  849.          BNE T60
  850.  
  851.          DEC T51+1
  852. T51      LDA #20   ;╟ET ┼NEMIES!
  853.          BNE T55
  854.          LDY #0
  855.          LDA (ELO),Y ;1.╙PRITE-╬R
  856.          CMP #255
  857.          BNE TT51
  858.          LDA #<ENEMIES
  859.          STA ELO
  860.          LDA #>ENEMIES
  861.          STA EHI
  862.          LDA (ELO),Y
  863. TT51     TAX
  864.          INY
  865.          LDA #0
  866.          STA XH,X
  867.          STA MIRRX,X
  868.          STA MIRRY,X
  869.          STA WIEDER,X
  870.          STA COUNT,X
  871.          LDA (ELO),Y ;2.╪-╨OS
  872.          STA IX,X
  873.          ASL A
  874.          STA X,X
  875.          BCC T52
  876.          INC XH,X
  877. T52      INY
  878.          LDA (ELO),Y ;3.┘-╨OS
  879.          CLC
  880.          ADC #110
  881.          STA Y,X
  882.          INY
  883.          LDA (ELO),Y ;4.┬LOCK
  884.          STA B,X
  885.          INY
  886.          LDA (ELO),Y ;5.├OLOUR
  887.          STA C,X
  888.          AND #128
  889.          BEQ T53
  890.          INC MIRRX,X ;& ╪MIRROR
  891. T53      LDA (ELO),Y
  892.          AND #64
  893.          BEQ T54
  894.          INC MIRRY,X ;& ┘MIRROR
  895. T54      INY
  896.          LDA (ELO),Y ;6.═OVEMENT
  897.          STA POINT,X
  898.          INY
  899.          LDA (ELO),Y ;7.─ELAY
  900.          STA T51+1
  901.          LDA ELO
  902.          CLC
  903.          ADC #7
  904.          STA ELO
  905.          BCC T55
  906.          INC EHI
  907. T55
  908.  
  909.          JMP T70
  910.  
  911.  
  912. T60      LDA #255  ;* 3/3-┴CTION *
  913.          STA T40+1
  914.  
  915.  
  916.  
  917. T70      INC T40+1
  918.  
  919.  
  920.  
  921. ;----------- ═OVE ┼NEMIES! -------------
  922.  
  923.          LDX #7
  924. M1       LDA Y,X
  925.          BEQ TM20
  926.          LDA WAIT,X
  927.          BEQ M2
  928.          DEC WAIT,X
  929. TM20     JMP M20
  930. M2       LDA COUNT,X
  931.          BEQ MM2
  932.          JMP M10
  933. MM2      LDY POINT,X
  934.          LDA MOVEDATS,Y
  935.          CMP #128     ;╩UMPING
  936.          BEQ M5       ;   &
  937.          CMP #129     ;═IRROR?
  938.          BEQ M4
  939.          CMP #130
  940.          BNE M3
  941.          LDA MIRRX,X
  942.          EOR #1
  943.          STA MIRRX,X
  944.          JMP M5
  945. M3       CMP #131
  946.          BNE M7
  947.          LDA MIRRX,X
  948.          EOR #1
  949.          STA MIRRX,X
  950. M4       LDA MIRRY,X
  951.          EOR #1
  952.          STA MIRRY,X
  953. M5       INC WIEDER,X
  954.          LDA WIEDER,X
  955.          CMP MOVEDATS+1,Y
  956.          BEQ M6
  957.          LDA MOVEDATS+2,Y
  958.          STA POINT,X
  959.          TAY
  960.          JMP M7
  961. M6       LDA POINT,X
  962.          CLC
  963.          ADC #3
  964.          STA POINT,X
  965.          TAY
  966. M7       LDA MIRRY,X    ;═OVE-╙ET!
  967.          BNE MM7
  968.          LDA MOVEDATS,Y
  969.          STA VERTI,X
  970.          JMP M8
  971. MM7      LDA #0
  972.          SEC
  973.          SBC MOVEDATS,Y
  974.          STA VERTI,X
  975. M8       LDA MIRRX,X
  976.          BNE MM8
  977.          LDA MOVEDATS+1,Y
  978.          STA HORIZ,X
  979.          JMP M9
  980. MM8      LDA #0
  981.          SEC
  982.          SBC MOVEDATS+1,Y
  983.          STA HORIZ,X
  984. M9       LDA MOVEDATS+2,Y
  985.          STA COUNT,X
  986.          LDA POINT,X
  987.          CLC
  988.          ADC #3
  989.          STA POINT,X
  990.  
  991. M10      DEC COUNT,X  ;╦OORD.═OVING!
  992.          LDA Y,X
  993.          CLC
  994.          ADC VERTI,X
  995.          STA Y,X
  996.          LDA HORIZ,X
  997.          BPL M11
  998.          CLC
  999.          ADC X,X
  1000.          STA X,X
  1001.          BCS M20
  1002.          BCC M12
  1003. M11      CLC
  1004.          ADC X,X
  1005.          STA X,X
  1006.          BCC M20
  1007. M12      LDA XH,X
  1008.          EOR #1
  1009.          STA XH,X
  1010.  
  1011. M20      DEX
  1012.          BEQ M21
  1013.          JMP M1
  1014. M21
  1015.  
  1016.  
  1017.          LDX #7
  1018. T80      LDA X,X  ;* X TO IX *
  1019.          LSR A
  1020.          LDY XH,X
  1021.          BEQ T81
  1022.          ORA #128
  1023. T81      STA IX,X
  1024.          CMP #175
  1025.          BCC T82
  1026.          LDA #0
  1027.          STA Y,X
  1028. T82      DEX
  1029.          BPL T80
  1030.  
  1031.  
  1032.  
  1033. K1       LDA $D011
  1034.          BMI K1
  1035.          LDA #71
  1036. K2       CMP $D012
  1037.          BCS K2
  1038.  
  1039.          LDA V+16
  1040.          AND #1
  1041.          STA V+16
  1042.          LDX #6
  1043. K3       LDA PACKXH,X ;╨ACK-╙PR.OBEN!
  1044.          BMI K5
  1045.          BEQ K4
  1046.          LDA V+16
  1047.          ORA ODER+1,X
  1048.          STA V+16
  1049. K4       LDY MAL2,X
  1050.          LDA PACKX,X
  1051.          STA V+2,Y
  1052.          LDA #80
  1053.          STA V+3,Y
  1054.          LDA PACKB,X
  1055.          STA BE+1,X
  1056.          LDA #15
  1057.          STA V+40,X
  1058. K5       DEX
  1059.          BPL K3
  1060.  
  1061.  
  1062.  
  1063.          LDA #101
  1064. K20      CMP $D012
  1065.          BCS K20
  1066.          LDA V+16
  1067.          AND #1
  1068.          STA V+16
  1069.  
  1070.          LDX #7
  1071. K21      LDY MAL2,X ;* ┼NEMY ╙PRITES *
  1072.          LDA X,X
  1073.          STA V,Y
  1074.          LDA Y,X
  1075.          STA V+1,Y
  1076.          LDA B,X
  1077.          STA BE,X
  1078.          LDA C,X
  1079.          STA V+39,X
  1080.          LDA XH,X
  1081.          BEQ K22
  1082.          LDA V+16
  1083.          ORA ODER,X
  1084.          STA V+16
  1085. K22      DEX
  1086.          BNE K21
  1087.  
  1088.  
  1089.  
  1090.          LDA #190
  1091. K50      CMP $D012  ;╨ACK-╙PR.UNTEN!
  1092.          BCS K50
  1093.  
  1094.          LDA V+16
  1095.          AND #1
  1096.          STA V+16
  1097.  
  1098.          LDX #6
  1099. K51      LDY MAL2,X
  1100.          LDA PACKXH,X
  1101.          BMI KK52
  1102.          BEQ K52
  1103.          LDA V+16
  1104.          ORA ODER+1,X
  1105.          STA V+16
  1106. K52      LDA #198
  1107.          STA V+3,Y
  1108.          LDA PACKX,X
  1109.          STA V+2,Y
  1110.          LDA PACKB,X
  1111.          ORA #8
  1112.          STA BE+1,X
  1113.          LDA #15
  1114.          STA V+40,X
  1115. KK52     DEX
  1116.          BPL K51
  1117.  
  1118.          LDA #220
  1119. K53      CMP $D012  ;┬ACK-╙PR.UNTEN!
  1120.          BCS K53
  1121.  
  1122.          LDA V+16
  1123.          AND #1
  1124.          STA V+16
  1125.  
  1126.          LDX #6
  1127. K54      LDY MAL2,X
  1128.          LDA BACKXH,X
  1129.          BMI KK55
  1130.          BEQ K55
  1131.          LDA V+16
  1132.          ORA ODER+1,X
  1133.          STA V+16
  1134. K55      LDA #228
  1135.          STA V+3,Y
  1136.          LDA BACKX,X
  1137.          STA V+2,Y
  1138.          LDA BACKB,X
  1139.          ORA #8
  1140.          STA BE+1,X
  1141.          LDA #15
  1142.          STA V+40,X
  1143. KK55     DEX
  1144.          BPL K54
  1145.  
  1146.  
  1147.  
  1148.  
  1149.          LDA #0
  1150.          STA BORD
  1151.  
  1152.          JMP IRQEND
  1153.  
  1154.  
  1155. STARP    .BYTE 220,10,140,200
  1156.          .BYTE 160,180,100,50
  1157.          .BYTE 40,90,80,240
  1158.          .BYTE 150,110,134,215
  1159. STARS    .BYTE 1,2,1,3,1,4,1,3
  1160.          .BYTE 2,1,4,1,1,1,3,1
  1161.  
  1162.  
  1163. STFLASH  .BYTE 11,12,12,15,3,13,7,1
  1164.          .BYTE 1,1,7,13,3,15,12,12
  1165.  
  1166.  
  1167. ;-------------- ╘ ╔ ╘ ╠ ┼ --------------
  1168.  
  1169.  
  1170. TITLE
  1171.          SEI
  1172.          LDA #0
  1173.          STA $D020
  1174.          STA $D021
  1175.          STA $D01A
  1176.          STA $D011
  1177.          STA V+27
  1178.          STA V+23
  1179.          STA V+29
  1180.          STA FLY1+1
  1181.          LDX #16
  1182. TI0      STA $D000,X
  1183.          STA $D400,X
  1184.          STA $D408,X
  1185.          DEX
  1186.          BPL TI0
  1187.  
  1188.          LDX #0
  1189.          LDA #$35
  1190.          STA 1
  1191. TI1      LDA $BC00,X
  1192.          STA $D800,X
  1193.          LDA $BC18,X
  1194.          STA $D818,X
  1195.          LDA #0
  1196.          STA $D918,X
  1197.          LDA #9
  1198.          STA $D940,X
  1199.          STA $DA40,X
  1200.          STA $DB00,X
  1201.          DEX
  1202.          BNE TI1
  1203.  
  1204.  
  1205.  
  1206.  
  1207.          LDA #<NMI
  1208.          STA $FFFA
  1209.          STA $FFFE
  1210.          LDA #>NMI
  1211.          STA $FFFB
  1212.          STA $FFFF
  1213.  
  1214.  
  1215.          LDA #196
  1216.          STA 56576
  1217.          LDA #27
  1218.          STA $D011
  1219.          LDA #224
  1220.          STA 56322
  1221.  
  1222.  
  1223.  
  1224. TI20     LDA $D011
  1225.          BMI TI20
  1226.          SEI
  1227.          LDA #120
  1228.          STA $D011
  1229.          LDA #216
  1230.          STA 53270
  1231.          LDA #24
  1232.          STA 53272
  1233.  
  1234.  
  1235.          JSR FLI   ;** ╞╠╔-╠OGO! **
  1236.  
  1237.  
  1238.          LDA #24   ;╘EXT-═ODE
  1239.          STA $D011
  1240.  
  1241.          LDX #0    ;├OLOUR-CHANGING...
  1242. TI25     LDA TIWAIT,X
  1243.          CMP $D012
  1244.          BCS TI25
  1245.          LDA TICOL1,X
  1246.          STA $D022
  1247.          LDA TICOL2,X
  1248.          STA $D023
  1249.          INX
  1250.          CPX #4
  1251.          BNE TI25
  1252.  
  1253. TI26     LDA $DC00 ;╩OY-┬UTTON ?
  1254.          AND #16
  1255.          BNE TI28
  1256.          JMP GAME
  1257.  
  1258. TI28
  1259.  
  1260.  
  1261.  
  1262. TI99     LDA $D011
  1263.          BPL TI99
  1264.          JMP TI20
  1265.  
  1266.  
  1267.  
  1268. JOYST    .BYTE 0
  1269.  
  1270. X        .BYTE 0,0,0,0,0,0,0,0
  1271. XH       .BYTE 0,0,0,0,0,0,0,0
  1272. Y        .BYTE 0,0,0,0,0,0,0,0
  1273. B        .BYTE 0,0,0,0,0,0,0,0
  1274. C        .BYTE 0,0,0,0,0,0,0,0
  1275. IX       .BYTE 0,0,0,0,0,0,0,0
  1276.  
  1277. VERTI    .BYTE 0,0,0,0,0,0,0,0
  1278. HORIZ    .BYTE 0,0,0,0,0,0,0,0
  1279. WAIT     .BYTE 0,0,0,0,0,0,0,0
  1280. COUNT    .BYTE 0,0,0,0,0,0,0,0
  1281. POINT    .BYTE 0,0,0,0,0,0,0,0
  1282. MIRRY    .BYTE 0,0,0,0,0,0,0,0
  1283. MIRRX    .BYTE 0,0,0,0,0,0,0,0
  1284. WIEDER   .BYTE 0,0,0,0,0,0,0,0
  1285.  
  1286. BACKX    .BYTE 0,0,0,0,0,0,0
  1287. BACKXH   .BYTE 0,0,0,0,0,0,0
  1288. BACKB    .BYTE 0,0,0,0,0,0,0
  1289.  
  1290. BACKPOINT .BYTE 0
  1291. BACKSPR  .BYTE 0
  1292. BACKTIME .BYTE 6,20,6,6,15
  1293.          .BYTE 6,40
  1294.          .BYTE 6,6,6,15
  1295.          .BYTE 6,6,40
  1296.          .BYTE 30,20,6,6,6,6,40
  1297.          .BYTE 0
  1298. BACKBDAT .BYTE 128,130,128,129,130
  1299.          .BYTE 128,130
  1300.          .BYTE 128,129,129,130
  1301.          .BYTE 128,129,130
  1302.          .BYTE 131,132
  1303.          .BYTE 128,129,129,129,130
  1304.  
  1305. PACKX    .BYTE 0,0,0,0,0,0,0
  1306. PACKXH   .BYTE 0,0,0,0,0,0,0
  1307. PACKB    .BYTE 0,0,0,0,0,0,0
  1308.  
  1309. PACKPOINT .BYTE 0
  1310. PACKSPR  .BYTE 0
  1311. PACKTIME .BYTE 32,22,12,22
  1312.          .BYTE 6,32,38
  1313.          .BYTE 0
  1314.  
  1315. PACKBDAT .BYTE 131,131,132,131
  1316.          .BYTE 128,130,131
  1317.  
  1318. ODER     .BYTE 1,2,4,8,16,32,64,128
  1319. MAL2     .BYTE 0,2,4,6,8,10,12,14
  1320.  
  1321. TIWAIT   .BYTE 100,134,158,188
  1322. TICOL1   .BYTE 9,6,9,4
  1323. TICOL2   .BYTE 5,14,10,12
  1324.  
  1325.  
  1326. ;------------ ═OVE-─ATEN ---------------
  1327.  
  1328. MOVEDATS .BYTE 0,0,255
  1329.          .BYTE 128,255,0
  1330.  
  1331.          .BYTE 0,255,9  ;* 6 *
  1332.          .BYTE 1,255,1
  1333.          .BYTE 0,255,1
  1334.          .BYTE 1,255,5
  1335.          .BYTE 2,255,5
  1336.          .BYTE 3,255,5
  1337.          .BYTE 2,255,5
  1338.          .BYTE 1,255,5
  1339.          .BYTE 0,255,1
  1340.          .BYTE 1,255,1
  1341.          .BYTE 129,255,6
  1342.  
  1343.          .BYTE 1,248,4  ;* 39 *
  1344.          .BYTE 1,249,4
  1345.          .BYTE 1,250,4
  1346.          .BYTE 1,251,4
  1347.          .BYTE 1,252,3
  1348.          .BYTE 1,253,3
  1349.          .BYTE 1,254,2
  1350.          .BYTE 1,255,2
  1351.          .BYTE 1,0,3
  1352.          .BYTE 1,1,3
  1353.          .BYTE 1,2,4
  1354.          .BYTE 1,3,4
  1355.          .BYTE 1,4,4
  1356.          .BYTE 1,5,4
  1357.          .BYTE 1,6,4
  1358.          .BYTE 1,7,5
  1359.          .BYTE 1,8,10
  1360.  
  1361.  
  1362. ENEMIES  .BYTE 1,170,0,64,7,6,3
  1363.          .BYTE 2,170,0,64,13,6,3
  1364.          .BYTE 3,170,0,64,10,6,3
  1365.          .BYTE 4,170,0,64,14,6,3
  1366.          .BYTE 5,170,0,64,5,6,3
  1367.          .BYTE 6,170,0,64,8,6,3
  1368.          .BYTE 7,170,0,64,9,6,98
  1369.  
  1370.          .BYTE 1,0,0,64,$87,6,3
  1371.          .BYTE 2,0,0,64,$8D,6,3
  1372.          .BYTE 3,0,0,64,$8A,6,3
  1373.          .BYTE 4,0,0,64,$8E,6,3
  1374.          .BYTE 5,0,0,64,$85,6,3
  1375.          .BYTE 6,0,0,64,$88,6,3
  1376.          .BYTE 7,0,0,64,$89,6,102
  1377.  
  1378.          .BYTE 1,170,0,64,7,39,1
  1379.          .BYTE 2,170,0,64,13,39,1
  1380.          .BYTE 3,170,0,64,10,39,1
  1381.          .BYTE 4,170,0,64,14,39,1
  1382.          .BYTE 5,170,0,64,5,39,1
  1383.          .BYTE 6,170,0,64,8,39,1
  1384.          .BYTE 7,170,0,64,9,39,40
  1385.  
  1386.          .BYTE 1,0,64,64,$C7,39,1
  1387.          .BYTE 2,0,64,64,$CD,39,1
  1388.          .BYTE 3,0,64,64,$CA,39,1
  1389.          .BYTE 4,0,64,64,$CE,39,1
  1390.          .BYTE 5,0,64,64,$C5,39,1
  1391.          .BYTE 6,0,64,64,$C8,39,1
  1392.          .BYTE 7,0,64,64,$C9,39,40
  1393.  
  1394.  
  1395.          .BYTE 255
  1396.  
  1397.  
  1398.          *= $9F00
  1399.  
  1400. UND      .BYTE 127,191,223,239
  1401.          .BYTE 247,251,253,254
  1402.  
  1403.